Chip 2003 November/Chip_2003-11_cd1.bin/program/delphi/kompon/BalmsoftPolyglot.exe/{app}/Demos/Delphi 4/bsPolyglotDemoFrm.dfm/bsPolyglotDemoFrm.txt

Text File | 2003-08-07 | 4KB | 187 lines

object bsPolyglotDemoForm: TbsPolyglotDemoForm
  Left = 259
  Top = 163
  Width = 433
  Height = 461
  Caption = 'Balmsoft Polyglot Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 16
    Width = 86
    Height = 13
    Caption = 'Choose language:'
  end
  object Label2: TLabel
    Left = 200
    Top = 8
    Width = 183
    Height = 13
    Caption = 'Strings are supported without limitation:'
  end
  object Label3: TLabel
    Left = 16
    Top = 304
    Width = 162
    Height = 52
    Caption =
      'Very very long'#10#13'multi line labels or '#10#13'any other text with speci' +
      'al symbols'#10#13'are also supported'
  end
  object cbLanguages: TComboBox
    Left = 32
    Top = 32
    Width = 145
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 0
    OnChange = cbLanguagesChange
  end
  object Memo1: TMemo
    Left = 200
    Top = 24
    Width = 217
    Height = 73
    Lines.Strings = (
      #9'<-Here is Tab symbol'
      'Use commas ,,,,,,,,,,,,,,,,,,,,,,'
      'or quotation marks '#39'  '#39'  '#39'  '#39'  '#39'  '#39
      'or double quotes "  "  "  "  "  "  "'
      'no special limitations')
    TabOrder = 1
  end
  object Button1: TButton
    Left = 16
    Top = 64
    Width = 113
    Height = 25
    Caption = 'Size can vary'
    TabOrder = 2
    OnClick = Button1Click
  end
  object Panel1: TPanel
    Left = 16
    Top = 112
    Width = 401
    Height = 185
    Caption = 'Panel1'
    TabOrder = 3
    object Panel2: TPanel
      Left = 8
      Top = 8
      Width = 385
      Height = 169
      Caption = 'Panel2'
      TabOrder = 0
      object Label4: TLabel
        Left = 8
        Top = 8
        Width = 366
        Height = 13
        Caption =
          'It is possible to translate column captions as well as any other' +
          ' collection items.'
      end
      object DBGrid1: TDBGrid
        Left = 8
        Top = 24
        Width = 369
        Height = 137
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'FirstName'
            Title.Caption = 'First Name'
            Width = 91
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LastName'
            Title.Caption = 'Last Name'
            Width = 123
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Salary'
            Width = 88
            Visible = True
          end>
      end
    end
  end
  object ComboBox1: TComboBox
    Left = 200
    Top = 304
    Width = 217
    Height = 21
    ItemHeight = 13
    TabOrder = 4
    Text = 'ComboBox1'
  end
  object RadioGroup1: TRadioGroup
    Left = 200
    Top = 336
    Width = 217
    Height = 89
    Caption = 'RadioGroup1'
    ItemIndex = 0
    Items.Strings = (
      'Item 1'
      'Item 1'#39
      'Item 1 , Item 2')
    TabOrder = 5
  end
  object Button2: TButton
    Left = 16
    Top = 368
    Width = 169
    Height = 25
    Caption = 'Show Message'
    TabOrder = 6
    OnClick = Button2Click
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 208
    Top = 200
  end
  object bsPolyglotTranslator1: TbsPolyglotTranslator
    Manager = PolyglotManager
    Left = 16
    Top = 400
  end
  object PolyglotManager: TbsPolyglotManager
    LangsDir = '.\'
    CurrentLang = 'English'
    TranslateResourceStrings = True
    Left = 56
    Top = 400
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'employee.db'
    Left = 144
    Top = 400
  end
end